home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / tpapi.exe / EXAMPLES / DLOGOUT.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-14  |  3KB  |  92 lines
  1. {***************************************************************************}
  2. {** Program : DLOGOUT                                                     **}
  3. {***************************************************************************}
  4. {** Version : 1.0             ** Started :           ** Ended :   /  /    **}
  5. {***************************************************************************}
  6. {******************************** Description ******************************}
  7. {***************************************************************************}
  8. {** Program which will logout of all servers accept the default.          **}
  9. {**                                                                       **}
  10. {**                                                                       **}
  11. {**                                                                       **}
  12. {**                                                                       **}
  13. {***************************************************************************}
  14. {******************************** Information ******************************}
  15. {***************************************************************************}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {**                                                                       **}
  19. {**                                                                       **}
  20. {**                                                                       **}
  21. {***************************************************************************}
  22.  
  23. program DLOGOUT;
  24.  
  25. USES
  26.  
  27.   NWVAR,
  28.   NWWRKSTN,
  29.   NWMISC;
  30.  
  31. CONST
  32.  
  33.   ProgramName = 'DLOGOUT.EXE';
  34.   Version     = '1.0';
  35.   Description = 'Logs out of all servers except the default';
  36.  
  37. VAR
  38.  
  39.   PrimaryConnectionID   : WORD;
  40.   WorkStatServ          : WorkStationOBJ;
  41.   MiscServ              : MiscFuncOBJ;
  42.  
  43. procedure Initialise;
  44.  
  45. BEGIN
  46.  
  47.   WorkStatServ.Init (true);
  48.   MiscServ.Init (true);
  49.   PrimaryConnectionID := WorkStatServ.GetPrimaryConnectionID;
  50.   WRITELN;
  51.   WRITELN ('Program : ', ProgramName);
  52.   WRITELN ('Version : ', Version);
  53.   WRITELN ('Description : ', Description);
  54.   WRITELN;
  55.  
  56. END; {procedure Initialise}
  57.  
  58. {**********}
  59.  
  60. procedure LogoutServers;
  61.  
  62. VAR
  63.  
  64.   TempCount : WORD;
  65.  
  66. BEGIN
  67.  
  68.   FOR TempCount := 1 TO MaxSlotsInShell DO
  69.     IF TempCount <> PrimaryConnectionID THEN
  70.       BEGIN
  71.  
  72.         WorkStatServ.SetPreferredConnectionID (TempCount);
  73.         WorkStatServ.EndOfJob ($FFFF);
  74.         WorkStatServ.SetPreferredConnectionID (PrimaryConnectionID);
  75.         MiscServ.LogoutAndDetachFromFileServer ('', TempCount);
  76.  
  77.       END;
  78.  
  79. END; {procedure LogoutServers}
  80.  
  81. {**********}
  82.  
  83. BEGIN
  84.  
  85.   Initialise;
  86.   LogoutServers;
  87.   WorkStatServ.Done;
  88.   MiscServ.Done;
  89.  
  90. END.
  91.  
  92.